リストの作成

if measuredistance(My.X,My.Y,2500,133,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,197,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,341,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,350,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,501,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,579,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,837,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,895,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,938,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,1033,Universe.Highway)<8.5 Then
DelAgt(My)
Elseif measuredistance(My.X,My.Y,2500,1215,Universe.Highway)<8.5 Then
DelAgt(My)

この座標の違う場所でエージェントを消すプログラムを改善したいです。
for文を使ってまとめて行う方法をご存じの方はいらっしゃいますか。