ちょっと待って。 ループがループになってないのがこのプログラムの最大の問題であってWAITで調整というのは根本の解決になっていません。 他の人も言っているとおりGOSUBとか使ってみましょう。