You can do something like this, but it can cause other problems:
ast.Write(...)
Wait For ast_NewText(Text As String)
This will work if the ESP can only send OK.
A more robust solution is to create a List with all the values that you need to send and send the next one in the ast_NewText event:
Private Sub ast_NewText(Text As String)
If Text = "OK" Then
If Queue.Size > 0 Then
Dim linha As String = Queue.Get(0)
ast.Write(...)
Queue.RemoteAt(0)
End If
End Sub