This is what Cases is made for.
In[11]:= data = Table[{RandomChoice@{"E", "D", "P"}, RandomInteger@100}, 20]
Out[11]= {{"D", 25}, {"D", 4}, {"D", 55}, {"E", 29}, {"E", 8}, {"D",
19}, {"P", 17}, {"P", 42}, {"D", 65}, {"D", 13}, {"E", 53}, {"D",
30}, {"D", 98}, {"E", 83}, {"E", 28}, {"D", 7}, {"E", 11}, {"E",
86}, {"P", 11}, {"E", 82}}
In[12]:= Cases[data, {"E", _}]
Out[12]= {{"E", 29}, {"E", 8}, {"E", 53}, {"E", 83}, {"E", 28}, {"E",
11}, {"E", 86}, {"E", 82}}
