It is difficult to understand exactly how and what to automate.
Perhaps this will help.
Create a concrete example
f = RandomReal[{0, 5}, 6];
unsort = Table[i = RandomInteger[6]; 
y = RandomReal[{0, 10}]; {f[[i]], y}, {1300}];
sort = Sort[unsort]
Now group together all lists which have the same first element
splitsort = Split[sort, First[#1] == First[#2] &]
Now examine the first set of items which share the first element
splitsort[[1]]
Perhaps this will be useful
For[n = 1, n <= Length[splitsort], n++,
 Print["The ", n, "'th group with the same first element is: ", splitsort[[n]]]
 ]
If this is still not sufficient then can you provide the simplest clearest description of what you need as a result? Perhaps with that it will be possible to get closer to what you want to accomplish.