Sub ListAndRemoveDaten()
      Dim _Daten = XDocument.Load("path")
      Dim toRemove As New List(Of XElement)
      For Each xel In _Daten.<Daten>.<Eintrag>
         MessageBox.Show(xel.Attribute("ID").Value)
         toRemove.Add(xel)
      Next
      For Each xel In toRemove.Take(2)
         xel.Remove()
      Next
      For Each xel In _Daten.<Daten>.<Eintrag>
         MessageBox.Show(xel.Attribute("ID").Value)
         toRemove.Add(xel)
      Next
   End Sub

(Rechtschreibfehler urheberrechtlich geschützt)