Vba code it only deleting part of what It should

[cinstanl]

I have the below code. I want this to delete every item in Column z that is NA... it is only deleting the first section of NA and not deleting the others. Is there something I need to add to this to get it to delete all NA's

Sub Delete_NA()

Dim LastRow As Integer
Dim x, y, z As Integer
Dim StartRow, StopRow As Integer

For x = 0 To LastRow
    If (Range("Y2").Offset(x, 0) = "NA") Then
    Range("Y2").Offset(x, 0).EntireRow.Delete
    x = x - 1

End If
Next x

End Sub