LOL I would settle for Good (one more o)

nsdhakar the below is just the loop you asked for. I haven't tested it yet though. Is this a stress analysis using a mesh for display?

[VBA]
While Element <> vbNullString
'Note: make this part in loop so that it can write these values
'untill user put null value as i did above to get elements end nodes
Print #intFile, " !Apply Load "
Element = ThisDrawing.Utility.GetString(False, _
"enter force load to keypoints like(n,FY,-280e3), " & _
"where n is the node no.:")
Print #intFile, "FK," & Element
'Note: make this part in loop so that it can write these values
'untill user put null value as i did above to get elements end nodes
Print #intFile, " SOLVE "
Print #intFile, " !solve the resulting system of equations "
Print #intFile, " FINISH "
Print #intFile, " !finish solution "
Print #intFile, " /POST1"
Print #intFile, " PRRSOL,F "
Print #intFile, " ! List Reaction Forces "
Print #intFile, " PLDISP,2 "
Print #intFile, " ! Plot Deformed shape"
Print #intFile, " PLNSOL,U,SUM,0,1 "
Print #intFile, " ! Contour Plot of deflection "
Print #intFile, " ETABLE,SAXL,LS, 1 "
Print #intFile, " ! Axial Stress "
Print #intFile, " PRETAB,SAXL "
Print #intFile, " ! List Element Table "
Print #intFile, " PLETAB,SAXL,NOAV "
Print #intFile, " ! Plot Axial Stress "
Wend

[/VBA]

I changed the check on the saved file also. Dname holds the name of the drawing not if it has been saved, the message was also fixed (not enough ") .

[VBA]
If Dname = "" Then
MsgBox "The drawing wasn't saved! & Chr$(13) please do save first!"
Exit Sub
End If

If CheckIfNotSaved Then Exit Sub

'the below Function checks if the active drawing has
'been saved or not. Reuse as required

Function CheckIfNotSaved() As Boolean
CheckIfNotSaved = False
If Not ActiveDocument.Saved Then
MsgBox "The drawing wasn't saved!" & Chr$(13) & "Please do save first!"
CheckIfNotSaved = True
End If
End Function

[/VBA]