自作アドインの仮死状態について

こんにちは、

自作のアドインでは、困っている処があります。
問題はアドイン処理に、EAのAPIをいっぱい呼び出しています。
ソースの例としては：
If ItemName = "要素の追加" Then
For i As Integer = 0 To 300
Dim newElement As EA.Element = obj.Elements.AddNew("Element_" & i, "Class")
newElement.Update()
obj.Update()
Next
End If
それで、動作はとても重いです。仮死の状態になりそうです。
そちらでは、この問題を解決する方法がありませんか。
あれば、教えていただけませんか。