I think this should help:
Private Sub GroupChart_MouseLeftButtonDown(sender As Object, e As System.Windows.Input.MouseButtonEventArgs) Handles GroupChart.MouseLeftButtonDown
Dim SelectedIndex As Integer
Dim element As DependencyObject = Mouse.DirectlyOver
While (element IsNot Nothing And Not (TypeOf element Is ScatterDataPoint))
element = VisualTreeHelper.GetParent(element)
End While
If Not IsNothing(element) Then
Dim foundDataPoint As ScatterDataPoint = element
Dim foundCanvas = VisualTreeHelper.GetParent(element)
Dim ChildCount = VisualTreeHelper.GetChildrenCount(foundCanvas)
For i = 0 To ChildCount - 1
Dim CurrentContentPresenter = VisualTreeHelper.GetChild(foundCanvas, i)
If Object.ReferenceEquals(foundDataPoint, CurrentContentPresenter) Then
SelectedIndex = i
Exit For
End If
Next
End If
End Sub