something like:

Sub deleteem()
intValue = Range("a1").Value
For x = 1 To 100
If Range("a" & x).Value = intValue Then
intCount = intCount + 1
Else
intCount = 0
intValue = Range("a" & x).Value
End If
If intCount > 3 Then
Range("a" & x).Delete
End If
Next x
End Sub

You need to loop through a range with a counter, test if the current
item is the same as the last one and if it is delete  it.

The following code works for me.

Be aware that if you delete the row then the selected range will stay
the same size. Also.. the code starts with A1.