I have a code. It collectively holds the surfaces of the holes I choose.
İlogic
Dim oDoc As PartDocument= ThisDoc.Document
Dim oCD As ComponentDefinition = oDoc.ComponentDefinition
Dim oRad1 As Double, Rad2 As Double
Dim oCommand As CommandManager = ThisApplication.CommandManager
Line1 :
Dim oF1 As Face = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter,"Select Cylindrical Face")
If oF1.SurfaceType <> 5891 Then GoTo Line1
oRad1 = Round(oF1.Geometry.Radius,3)
oCommand.DoSelect(oF1)
For Each oSolid As SurfaceBody In oCD.SurfaceBodies
For Each oFace As Face In oSolid.Faces
If oFace.SurfaceType = 5891 Then
oRad2 = Round(oFace.Geometry.Radius,3)
If oRad2 = oRad1 Then oCommand.DoSelect(oFace)
End If
Next
Next
What I want now. keeping the lines of the holes I chose.

Choosing the holes one by one is very tiring